# name : logger::log_level set log level
# key : log_set@logger
# key : logger.log_set
# contributor: Shuguang Sun
# --
old_log_level <- logger::log_threshold()
logger::log_threshold(${1:$$(yas-choose-value '("TRACE" "DEBUG" "INFO" "SUCCESS" "WARN" "ERROR" "FATAL"))}$0)
on.exit(logger::log_threshold(old_log_level))
